home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / VISUALBA / SOUNDX11.ZIP / SAMPLE.ZIP / SXS2.FRM next >
Text File  |  1993-09-04  |  36KB  |  995 lines
  1. VERSION 2.00
  2. Begin Form SXS2 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "SoundX Sample 2"
  5.    ClientHeight    =   3375
  6.    ClientLeft      =   1110
  7.    ClientTop       =   2445
  8.    ClientWidth     =   6015
  9.    Height          =   3780
  10.    Left            =   1050
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3375
  13.    ScaleWidth      =   6015
  14.    Top             =   2100
  15.    Width           =   6135
  16.    Begin ListBox List3 
  17.       Height          =   1785
  18.       Left            =   4080
  19.       TabIndex        =   6
  20.       Top             =   1320
  21.       Width           =   1695
  22.    End
  23.    Begin ListBox List2 
  24.       Height          =   1785
  25.       Left            =   2160
  26.       TabIndex        =   5
  27.       Top             =   1320
  28.       Width           =   1695
  29.    End
  30.    Begin ListBox List1 
  31.       Height          =   1785
  32.       Left            =   240
  33.       TabIndex        =   4
  34.       Top             =   1320
  35.       Width           =   1695
  36.    End
  37.    Begin ComboBox Combo1 
  38.       Height          =   300
  39.       Left            =   240
  40.       TabIndex        =   0
  41.       Top             =   240
  42.       Width           =   2055
  43.    End
  44.    Begin SoundX SoundX1 
  45.       Left            =   5280
  46.       Top             =   120
  47.    End
  48.    Begin Label Label3 
  49.       Alignment       =   2  'Center
  50.       Caption         =   "Metaphone"
  51.       Height          =   255
  52.       Left            =   4080
  53.       TabIndex        =   9
  54.       Top             =   780
  55.       Width           =   1695
  56.    End
  57.    Begin Label Label2 
  58.       Alignment       =   2  'Center
  59.       Caption         =   "ExtSoundex"
  60.       Height          =   255
  61.       Left            =   2160
  62.       TabIndex        =   8
  63.       Top             =   780
  64.       Width           =   1695
  65.    End
  66.    Begin Label Label1 
  67.       Alignment       =   2  'Center
  68.       Caption         =   "Soundex"
  69.       Height          =   255
  70.       Left            =   240
  71.       TabIndex        =   7
  72.       Top             =   780
  73.       Width           =   1695
  74.    End
  75.    Begin Label Metaphone 
  76.       Alignment       =   2  'Center
  77.       BorderStyle     =   1  'Fixed Single
  78.       Height          =   255
  79.       Left            =   4080
  80.       TabIndex        =   3
  81.       Top             =   1080
  82.       Width           =   1695
  83.    End
  84.    Begin Label ExtSoundex 
  85.       Alignment       =   2  'Center
  86.       BorderStyle     =   1  'Fixed Single
  87.       Height          =   255
  88.       Left            =   2160
  89.       TabIndex        =   2
  90.       Top             =   1080
  91.       Width           =   1695
  92.    End
  93.    Begin Label Soundex 
  94.       Alignment       =   2  'Center
  95.       BorderStyle     =   1  'Fixed Single
  96.       Height          =   255
  97.       Left            =   240
  98.       TabIndex        =   1
  99.       Top             =   1080
  100.       Width           =   1695
  101.    End
  102. End
  103. Option Explicit
  104.  
  105. Sub Combo1_Change ()
  106.     Dim I As Integer
  107.  
  108.  
  109.     SoundX1.Word = Combo1.Text
  110.  
  111.     Soundex = SoundX1.Soundex
  112.     ExtSoundex = SoundX1.ExtSoundex
  113.     Metaphone = SoundX1.Metaphone
  114.  
  115.     List1.Clear
  116.     List2.Clear
  117.     List3.Clear
  118.  
  119.     DoEvents
  120.     Screen.MousePointer = 11
  121.  
  122.     For I = 0 To Combo1.ListCount - 1
  123.         SoundX1.Word = Combo1.List(I)
  124.  
  125.         If SoundX1.Soundex = Soundex Then List1.AddItem Combo1.List(I)
  126.         If SoundX1.ExtSoundex = ExtSoundex Then List2.AddItem Combo1.List(I)
  127.         If SoundX1.Metaphone = Metaphone Then List3.AddItem Combo1.List(I)
  128.     Next I
  129.  
  130.     Screen.MousePointer = 0
  131. End Sub
  132.  
  133. Sub Combo1_Click ()
  134.     Combo1_Change
  135. End Sub
  136.  
  137. Sub Form_Load ()
  138.     Combo1.AddItem UCase$("ABRAHAMSON")
  139.     Combo1.AddItem UCase$("ABREVAYA")
  140.     Combo1.AddItem UCase$("ACHENBACH")
  141.     Combo1.AddItem UCase$("achenback")
  142.     Combo1.AddItem UCase$("ACRES")
  143.     Combo1.AddItem UCase$("ADAMS")
  144.     Combo1.AddItem UCase$("ADKINSON")
  145.     Combo1.AddItem UCase$("AGARWALLA")
  146.     Combo1.AddItem UCase$("AGUILAR")
  147.     Combo1.AddItem UCase$("AIMAR")
  148.     Combo1.AddItem UCase$("AKHTAR")
  149.     Combo1.AddItem UCase$("ALBRECHT")
  150.     Combo1.AddItem UCase$("ALBRIGHT")
  151.     Combo1.AddItem UCase$("ALCORN")
  152.     Combo1.AddItem UCase$("ALLEN")
  153.     Combo1.AddItem UCase$("ALSOP")
  154.     Combo1.AddItem UCase$("ALSTON")
  155.     Combo1.AddItem UCase$("ALTENDERFER")
  156.     Combo1.AddItem UCase$("ALTON")
  157.     Combo1.AddItem UCase$("ALVES")
  158.     Combo1.AddItem UCase$("AMERICA")
  159.     Combo1.AddItem UCase$("ANDERSON")
  160.     Combo1.AddItem UCase$("ANDREWS")
  161.     Combo1.AddItem UCase$("ANTILL")
  162.     Combo1.AddItem UCase$("antley")
  163.     Combo1.AddItem UCase$("ANTOSHAK")
  164.     Combo1.AddItem UCase$("AQUINO")
  165.     Combo1.AddItem UCase$("ARENA")
  166.     Combo1.AddItem UCase$("ARMSTRONG")
  167.     Combo1.AddItem UCase$("ARNOLD")
  168.     Combo1.AddItem UCase$("ARSLANGIRAY")
  169.     Combo1.AddItem UCase$("ASHENDORF")
  170.     Combo1.AddItem UCase$("ASSOCIATES")
  171.     Combo1.AddItem UCase$("ASTBURY")
  172.     Combo1.AddItem UCase$("ATTAYA")
  173.     Combo1.AddItem UCase$("AUSTIN")
  174.     Combo1.AddItem UCase$("AXSON")
  175.     Combo1.AddItem UCase$("BABCOCK")
  176.     Combo1.AddItem UCase$("BACHE")
  177.     Combo1.AddItem UCase$("BACHMANN")
  178.     Combo1.AddItem UCase$("BACKSTROM")
  179.     Combo1.AddItem UCase$("BADEAUX")
  180.     Combo1.AddItem UCase$("BAILES")
  181.     Combo1.AddItem UCase$("BAILEY")
  182.     Combo1.AddItem UCase$("BAIRSTOW")
  183.     Combo1.AddItem UCase$("BAKER")
  184.     Combo1.AddItem UCase$("BALDRIDGE")
  185.     Combo1.AddItem UCase$("BALOCCA")
  186.     Combo1.AddItem UCase$("BALOG")
  187.     Combo1.AddItem UCase$("Balshone")
  188.     Combo1.AddItem UCase$("BARB")
  189.     Combo1.AddItem UCase$("BARBARIA")
  190.     Combo1.AddItem UCase$("BARCELLOS")
  191.     Combo1.AddItem UCase$("BARD")
  192.     Combo1.AddItem UCase$("BARESEL")
  193.     Combo1.AddItem UCase$("BARKDULL")
  194.     Combo1.AddItem UCase$("BARKER")
  195.     Combo1.AddItem UCase$("Barlow")
  196.     Combo1.AddItem UCase$("BARNES")
  197.     Combo1.AddItem UCase$("BARRIGA")
  198.     Combo1.AddItem UCase$("BARRY")
  199.     Combo1.AddItem UCase$("BARTEE")
  200.     Combo1.AddItem UCase$("BARTLEY")
  201.     Combo1.AddItem UCase$("Barton")
  202.     Combo1.AddItem UCase$("BARTORILLO")
  203.     Combo1.AddItem UCase$("BASS")
  204.     Combo1.AddItem UCase$("BAUM")
  205.     Combo1.AddItem UCase$("BAXTER")
  206.     Combo1.AddItem UCase$("BAYLESS")
  207.     Combo1.AddItem UCase$("BAYNE")
  208.     Combo1.AddItem UCase$("BAZAN")
  209.     Combo1.AddItem UCase$("BEACHAM")
  210.     Combo1.AddItem UCase$("BEALE")
  211.     Combo1.AddItem UCase$("BECKER")
  212.     Combo1.AddItem UCase$("BEEBE")
  213.     Combo1.AddItem UCase$("beegan")
  214.     Combo1.AddItem UCase$("BEEL")
  215.     Combo1.AddItem UCase$("BEHNKE")
  216.     Combo1.AddItem UCase$("BELLAART")
  217.     Combo1.AddItem UCase$("BENDER")
  218.     Combo1.AddItem UCase$("BENGE")
  219.     Combo1.AddItem UCase$("BENHERSCHEL")
  220.     Combo1.AddItem UCase$("BENNETT")
  221.     Combo1.AddItem UCase$("BENSEN")
  222.     Combo1.AddItem UCase$("BERARDELLI")
  223.     Combo1.AddItem UCase$("BERCINI")
  224.     Combo1.AddItem UCase$("BERG")
  225.     Combo1.AddItem UCase$("BERGER")
  226.     Combo1.AddItem UCase$("BERGONZI")
  227.     Combo1.AddItem UCase$("BERNAUER")
  228.     Combo1.AddItem UCase$("BERNDT")
  229.     Combo1.AddItem UCase$("berning")
  230.     Combo1.AddItem UCase$("BERNSTEIN")
  231.     Combo1.AddItem UCase$("BERRY")
  232.     Combo1.AddItem UCase$("BERTSCH")
  233.     Combo1.AddItem UCase$("BETANCOURT")
  234.     Combo1.AddItem UCase$("BEVILACQUA")
  235.     Combo1.AddItem UCase$("BEZIRTZOGLOU")
  236.     Combo1.AddItem UCase$("BIGGS")
  237.     Combo1.AddItem UCase$("BIGLER")
  238.     Combo1.AddItem UCase$("Biondo")
  239.     Combo1.AddItem UCase$("BISCH")
  240.     Combo1.AddItem UCase$("BISESI")
  241.     Combo1.AddItem UCase$("BJERRE")
  242.     Combo1.AddItem UCase$("BLABER")
  243.     Combo1.AddItem UCase$("BLACKMAN")
  244.     Combo1.AddItem UCase$("BLACKSTOCK")
  245.     Combo1.AddItem UCase$("BLAIR")
  246.     Combo1.AddItem UCase$("BLAKE")
  247.     Combo1.AddItem UCase$("BLAKELEY")
  248.     Combo1.AddItem UCase$("BLANDAMER")
  249.     Combo1.AddItem UCase$("BLANTON")
  250.     Combo1.AddItem UCase$("BLAU")
  251.     Combo1.AddItem UCase$("BLENHEIM")
  252.     Combo1.AddItem UCase$("BLEVINS")
  253.     Combo1.AddItem UCase$("BLISS")
  254.     Combo1.AddItem UCase$("BLOOM")
  255.     Combo1.AddItem UCase$("BLOW")
  256.     Combo1.AddItem UCase$("BLUMENTHAL")
  257.     Combo1.AddItem UCase$("Boardwine")
  258.     Combo1.AddIte